(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     13941,        539]
NotebookOptionsPosition[      9821,        394]
NotebookOutlinePosition[     10444,        418]
CellTagsIndexPosition[     10365,        413]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["InterfacialThinFilmNLS Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->97891444],

Cell["InterfacialThinFilmNLS`", "Categorization",
 CellLabel->"Context",
 CellID->503035330],

Cell["InterfacialThinFilmNLS/ref/NonlinearPolarization", "Categorization",
 CellLabel->"URI",
 CellID->128220877]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["NonlinearPolarization", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["NonlinearPolarization",
    BaseStyle->"Link",
    ButtonData->"paclet:InterfacialThinFilmNLS/ref/NonlinearPolarization"], 
   "[", 
   RowBox[{
    StyleBox["\[Chi]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox[
         StyleBox["e", "TI"], "1", 
         StyleBox["x", "TI"]], ",", 
        SubsuperscriptBox[
         StyleBox["e", "TI"], "1", 
         StyleBox["y", "TI"]], ",", 
        SubsuperscriptBox[
         StyleBox["e", "TI"], "1", 
         StyleBox["z", "TI"]]}], "}"}], ",", 
      RowBox[{"\[CenterEllipsis]", 
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], 
          StyleBox["x", "TI"]], ",", 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], 
          StyleBox["y", "TI"]], ",", 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], 
          StyleBox["z", "TI"]]}], "}"}]}]}], "}"}]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]performs the n-tuple dot product of the material ",
 Cell[BoxData[
  StyleBox["\[Chi]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " tensor of rank ",
 Cell[BoxData[
  RowBox[{
   StyleBox["m", "TI"], "+", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 " with the rank ",
 Cell[BoxData[
  StyleBox["m", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " outer product of ",
 Cell[BoxData[
  StyleBox["m", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " input fields.  This returns the material nonlinear polarization vector ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SubscriptBox[
     StyleBox["p", "TI"], 
     StyleBox["x", "TI"]], ",", 
    SubscriptBox[
     StyleBox["p", "TI"], 
     StyleBox["y", "TI"]], ",", 
    SubscriptBox[
     StyleBox["p", "TI"], 
     StyleBox["z", "TI"]]}], "}"}]], "InlineFormula"],
 " due to nonlinear interaction with all input fields."
}], "Usage",
 CellChangeTimes->{{3.6002156915714345`*^9, 3.600215725883483*^9}}],

Cell[TextData[{
 ButtonBox["NonlinearPolarization",
  BaseStyle->"Link",
  ButtonData->"paclet:ThinFilmNLS/ref/NonlinearPolarization"],
 " is useful for cases that sample multiple elements of the ",
 Cell[BoxData[
  StyleBox["\[Chi]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " tensor."
}], "Notes",
 CellChangeTimes->{3.600215748715515*^9},
 CellID->1067943069],

Cell[TextData[{
 "The arguments for each input field may be computed for an interface within \
a thin film system using ",
 ButtonBox["InputTransferC",
  BaseStyle->"Link",
  ButtonData->"paclet:ThinFilmNLS/ref/InputTransferC"],
 "."
}], "Notes",
 CellID->37889486],

Cell[TextData[{
 "The result of ",
 ButtonBox["NonlinearPolarization",
  BaseStyle->"Link",
  ButtonData->"paclet:ThinFilmNLS/ref/NonlinearPolarization"],
 " may be used as the first argument in ",
 ButtonBox["OutputTransferC",
  BaseStyle->"Link",
  ButtonData->"paclet:ThinFilmNLS/ref/OutputTransferC"],
 "."
}], "Notes",
 CellID->425823070]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Nonlinear Spectroscopy of Thin Film Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Nonlinear Spectroscopy of Thin Film \
Systems"]], "Tutorials",
 CellChangeTimes->{3.600215805751482*^9},
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{3.6002157884465704`*^9},
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/InputTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["PhaseMatchAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/PhaseMatchAngle"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["OutputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/OutputTransferC"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.6002158263176584`*^9, 3.600215838078331*^9}},
 CellID->28465606]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{4, Automatic}, {Automatic, 0}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[8301, 336, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 10227, 406}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 102, 2, 31, "Categorization",
 CellID->97891444],
Cell[1164, 49, 92, 2, 31, "Categorization",
 CellID->503035330],
Cell[1259, 53, 113, 2, 31, "Categorization",
 CellID->128220877]
}, Open  ]],
Cell[CellGroupData[{
Cell[1409, 60, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1467, 63, 45, 1, 17, "Keywords",
 CellID->1164421360]
}, Open  ]],
Cell[CellGroupData[{
Cell[1549, 69, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[1617, 72, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1714, 76, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1799, 80, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1883, 84, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2002, 91, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2058, 94, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2124, 98, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2196, 102, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2263, 106, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2335, 110, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2399, 114, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2463, 118, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2529, 122, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2610, 126, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2714, 133, 64, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[2781, 136, 2175, 70, 108, "Usage"],
Cell[4959, 208, 379, 11, 25, "Notes",
 CellID->1067943069],
Cell[5341, 221, 265, 8, 37, "Notes",
 CellID->37889486],
Cell[5609, 231, 343, 11, 23, "Notes",
 CellID->425823070]
}, Open  ]],
Cell[CellGroupData[{
Cell[5989, 247, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[6049, 250, 260, 6, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[6346, 261, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[6432, 264, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[6527, 270, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[6595, 273, 421, 8, 29, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[7053, 286, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[7111, 289, 651, 20, 19, "SeeAlso",
 CellID->28465606]
}, Open  ]],
Cell[CellGroupData[{
Cell[7799, 314, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[7859, 317, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[7920, 321, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[CellGroupData[{
Cell[8301, 336, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[8404, 340, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[8532, 345, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[8705, 352, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[8835, 357, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[8968, 362, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[9113, 368, 131, 3, 18, "ExampleSection",
 CellID->258228157],
Cell[9247, 373, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[9392, 378, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[9530, 383, 140, 3, 18, "ExampleSection",
 CellID->1653164318],
Cell[9673, 388, 132, 3, 18, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
